﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim messaggio As String = ""
    Dim drv = My.Computer.FileSystem.Drives
    For Each d In drv
      messaggio &= d.ToString & NL
    Next
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
